#!/usr/bin/perl
use strict;
use warnings;

system("mysql -utest01 -p111111  -Dgrouplife_test -e \"call confirm_deliver()\"");
